﻿Imports System.Data.Odbc
Imports System.Data.OleDb
'pablo beloso
Public Class Producto

    Dim ingreso As Negocio.nProductos
    Dim producto As Entidades.producto
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        producto.pid1 = TextBox1.Text
        producto.pid2 = TextBox3.Text
        producto.pid3 = TextBox2.Text
        If ingreso.AltaProducto(producto) Then
            MsgBox("todo bien")
        Else
            MsgBox("todo mal")
        End If
    End Sub

    Private Sub Producto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class